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| **FILE**1D**WIOHNDLR 
| 
| 
si le! III] 000000 HH HH NN NN DDDDDDDD LL RRRRRRRR 
wile Wh 1111 000000 HH HH NN NN DDDDDDDD LL RRRRRRRR 
ole tale I] 00 00 HH HH NN NN DD DD LL RR RR 
will Wh I] 00 00 HH HH NN N DD DD LL RR RR 
et ‘eile I] 00 00 HH HH NNNN NN DD LL RR RR 
bl whe I] 00 00 HH HH NNNN NN DD DD LL RR RR 
aa elle I] 00 O00 HHHHHHHHHH NN NN NN DD LL RRRRRRRR 
‘ale vlad I] 00 O00 HHHHHHHHHH NN NN NN DD DD LL RRRRRRRR 
Ww We WW I] 00 00 HH HH NN NNNN DD DD LL RR RR 
We We WW I] 00 00 HH HH NN NNNN DD DD LL RR RR 
Why = Wid I] 00 00 HH HH NN NN DD DD LL RR RR eeee 
Wid = Wid I] HH HH NN NN DD DD LL RR RR cove 
‘wie wal III] 000000 HH HH NN NN DDDDDDDD LLLLLLLLLL RR RR cece 
‘elie! wile! 11111 000000 HH HH NN NN DDDDDDDD LLLLLLLLLL RR RR cece 
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I SS 
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EDTSWIOHNDLR = work 1/0 condition handler dak 


3 1 0001 ZTITLE ‘EDTSWIOHNDLR = work 1/0 condition handler' 

3 ¢ B08 MODULE EDTSWIOHNDLR ( work 1/0 condition hanndler 
3 000 IDENT = ‘'V04=-000' ! File: WIOHNDLR.B32 Edit: JBS1002 
; 4 0004 0 )= 

; 5 0005 1 BEGIN 

; 6 0006 1! 

3 4 QOO7 1 eee ee eee eee RRR REE EERE REE RERAEEREREERRRERER ERE 
3 0008 1 !* * 
; 9 0009 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
H 10 0010 1 !* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 
$ 13 Bet, : te ALL RIGHTS RESERVED. * 
3 ie cy 
; 8 $018 1 !* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
; 14 0014 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
3 15 0015 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
: 16 0016 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
3 17 0017 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
: is $018 ! :* TRANSFERRED. * 
Py :* Py 
; $9 Boss 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
H 1 0021 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT » 
: $8 OOes : be CORPORATION. * 
by 7a ® 
; 24 0034 1 !* DIGITAL ASSUMES NO KESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
: 25 0025 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
; 26 0026 1 !* * 
; 27 0027 1 ! * 
: 28 0028 1 wae eee eee REE EEE EEE TETRA RARER EERE REE 
; 29 is 34 3 

; 30 0030 1 

fun 0031 1 !++¢ ; 

; = itt 1 ! FACILITY: EDT -- The DEC Standard Editor 

:. = 0033 1! 

3 34 0034 1 ! ABSTRACT: 

; «35 0035 1 | ae 

3 3 site) : Condition handler enabled for all workfile I/0 

; $ ope : ENVIRONMENT: Runs on Vax/Vms 

3 re Bees : : AUTHOR: Shelly T. Solomon, CREATION DATE: 21-Jul-1982 

: 42 004 1 ! MODIFIED BY: 

; 43 004 73 

; 44 0044 1 ! 1-001 - Original. STS 21-Jul-1982 ; - 

; re aRe7 ' 1-002 - Improve the appearance of the Listing. JBS 20-Jun-1985 

: 47 1 


1984 02:16:37 VAX-11 Bliss-32 V4.0-74 P 

19be 05:8: 3F DIEKSVMGHASTERSCEDT SRCSWIOHNDLR.B32047° (1 
r 
! 


OWN STORAGE: 

in the routine 
EXTERNAL REFERENCES: 
in the routine 


] 

1 ' 
EDTSWIOHNDLR EDTSWIOHNDLR = work 1/0 condition handler 1bese -1984 16:37 VAX=-11 Bliss-32 V4.0-74 p | 
v04=000 Declarations Haat 95:38:25 STEKSUMGHASTERSCEDT SRC SUIOMNDLR.B320% 7" (25 
: 49 048 1 XSBTTL ‘Declarations’ 
: 3} $80 i i TABLE OF CONTENTS | 
; g 0051 1: 
ais a 0052 1 
: ee B08 REQUIRE ‘EDTSRC:TRAROUNAM'; | 
; 56 o8 1 FORWARD ROUTINE 
wy 0494 1 EDTSSWIOHNDLR; 
; 58 0495 1 
i §9 0496 1! | 
: 60 0497 1°! INCLUDE FILES: 
: 61 04968 1! 
: 6¢ 0499 1 
; «6 05 9 1 REQUIRE "EDTSRC:EDTREQ’; 
> «64 06 1 
: «665 0636 1 REQUIRE "EDTSRC:SYSSYM’; 
; 666 0666 1 
ee 0667 1! 
: «668 0668 1 ! MACROS: 
: «469 0669 1! 
: 70 0670 1 NONE 
oe 0671 1 
eae 0672 1 ! EQUATED SYMBOLS: 
ae 0673 1 
: 7% 0674 1 NONE 
; 0675 1 
: 76 0676 1 ! FIELDS: 
oi 0677 1 
: 78 0678 NONE | 
: 1 
: 1 
: 1 | 
: 1 
: 1 
; 1 
: 1 
: 1 
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H 1 
EDTSWIOHNDLR EDTSWIOHNDLR = work 1/0 condition handler 16-Sep-1984 02:16:37 VAX-11 Bliss-52 V4.0-74 P 
v04-0 EDTSSWIOHNDLR = condition handler for workfile 14-Sep-19 4 95:38:25 DLEKSVMEMASTERSCEDT. SRCSWIOHNDLR.B3204°" (33 | 
688] XSBTTL "EDTSSVIOHNDLR - condition handler for workfile 1/0! | 
69 GLOBAL ROUTINE EDTSSWIOHNDLR ( ' Condition handler for workfile I/0 | 
69 $1G, ! Signal array 
069 MECH, ' Mechanism array 
892 ENBL ! Enable arguments, not used 


++ 
' FUNCTIONAL DESCRIPTION: 


This is the ny gee handler for all workfile 1/0. 
ALL it does is to set up the vector of status, stv and filename. 


1 

; 

! 

; 

i 

i | 
i FORMAL PARAMETERS: 
Usual for condition handlers. 
IMPLICIT INPUTS: 

! NONE 

; IMPLICIT OUTPUTS: 

i EDT$$G_10_STS 

i EDT$$G_10-STV 

; EDT$$A_10—FNAME 
; COMPLETION STATL-: 
Always SS$_RESIGNAL | 
SIDE EFFECTS: | 
; 
; 
be 


WWII WAIN RI NININININNININ 3 SS So oo NOOO Db uPAR Roe oe Se eae 


Ww 
TR ute MOD MOAR POO NOU EWN O00 NAOE WN MODS NOR OO DONO EWN—O”O 


NONE 
2 BEGIN 
EXTERNAL 
EDT$$G_I0O_STS, ! 1/0 error status, first_32 bits 
EDT$$G_IO_STV, ! 1/0 error status, last 32 bits 
EDTSS$A_10_FNAM; ! 1/0 error file name, for messages 
MAP 


SIG : REF VECTOR; 


'¢ 
! Set up the message vector for the call to EDT$$10_ERRMSG 
and save the filename signalled with. 


ee eT ee ee LeeLee eee) 


St at et ek et del © bn he) 


END; ! of routine EDTS$SWIOHNDLR 


1 
OHNDLR = work 1/9 condition handler 16- -Sep-1984 9g: \g:3 VAX-11 Bliss-32 V reg Poce 
IOHNDLR = condition handler for workfile -Sep-1984 ISKSVMSMASTER: tt Osh WIOHNDLR.B32; 


ere 
c- 


~TITLE EDTSWIOHNDLR EDTSWIOHNDLR = work 1/0 condition | 
r 
-IDENT \V04-000\ 


~-EXTRN EDT$$G_I0_ AP EDT$$G_10_STV | 
-EXTRN EDTSS$SA_IO_F 


-PSECT _EDTSCODE,NOWRT, SHR, PIC,2 


0000 60008 ENTRY EDTSSWIOHNDLR, Save nothing ; 0690 
50 04 AC 00 00002 MOVL $1G, RO ; 0740 

00000000G 00 10 AO 00 00006 MOVL 16(RO), eDTss6. 10_STS ; 
000000006 00 14 AO DO OO00E MOVL 20(RO), EDT$$G_IO_STV ; 0741 
000000006 00 OC AO D0 00016 MOVL 12(RO), EDT$$A_IO_FNAM 3 0742 
50 0918 8F 3¢ sist + #2328, RO 3 Lae 


; 146 0745 1 
147 0746 1 !<BLF/PAGE> 
| 


04 00 
Routine Size: 36 bytes, Routine Base: _EDTSCODE + 0000 


Elapsed Time: 00:20.8 
Lines/CPU Min: 3144 

; Lexemes/CPU-Min: 8288 
Memory Used: 68 pages 

; Compication Complete 


Se Se Be Ge Ge He Se 


ESA a Ho Ges Bee ee, Te ey ti : | 
1 | 
EDTSWIOHNDLR EDTSWIOHNDLR = work I/0 condition handler 18-Sep-1 -1984 VAX-11 Bliss-32 V4.0-7 5 EDT 
ba 000 EDTSSWIOHNDLR = condition handler for workfile 1e-8ep=1 198 93: 8:25 DISKSVMSMASTER: choi src WIOHNDLR. B32. 79 a) v04 
> 149 0747 1 END ! of module EDTSWIOHNDLR 3 
150 748 atte | 
: 151 749 0 ELUDOM | é 
| P 
; PSECT SUMMARY | ; 
; Name Bytes Attributes 3 
: _EDTSCODE 36 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) ; 
; Library Statistics ; 
ae as SR ee Pk, aa tg kee) = aD Syabols -oo--ce-- Pages Processing ; 
; File Total Loaded Percent Mapped Time ; 
: -$255$DUA28: CEDT.SRCJEDT.L32;1 377 0 0 40 00:00.2 F 
; ~$255$0UA28:CEDT. SRC IPSECTS.L32:1 2 1 50 7 00:00.1 : 
3; ~$255$DUA28: CSYSLIBISTARLET.L32;1 9776 1 0 581 00:04.0 : 
: COMMAND QUALIFIERS ; 
P > setae ehhh Nenana ents Maa MSRC$:WIOHNDLR.B32/UPDATE=(ENH$:W1OH 3 
Size: 36 code + 0 data bytes ; 
Run Time: 00:14.3 ; 
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